  10 :RETURN ;NT=0;BC=RND (32)×8;FC=BC+4+RND (32)×8
  17 PRINT "   FRAME           SCORE";A=1;B=0;&(19)=25
  20 BOX 0,0,43,87,3;BOX 0,0,41,85,3;FOR Z=0TO 22;@(Z)=0;NEXT Z
  40 BOX 0,-35,41,15,3;BOX -13,-15,1,2,3;BOX -6,-12,1,2,3;BOX 0,-9,1,2,3;BOX 6,-12,1,2,3;BOX 13,-15,1,2,3
  50 FOR Z=23TO 32;@(Z)=1;NEXT Z;CX=-47;CY=30;PRINT #1,A;CX=48;CY=30;PRINT #1,B;E=0;GOSUB 890
  60 IF A=11IF @(18)+@(19)#10GOTO 1500
  65 IF A=12IF @(20)#10GOTO 1500
  70 IF A=13GOTO 1500
  80 E=E+1;GOSUB 1000;IF X=0@(23)=2;@(24)=2;@(25)=2;@(27)=2;@(30)=2;@(31)=2
  90 IF (X=-3)+(X=3)IF @(23)=1FOR Z=23TO 32;@(Z)=2;NEXT Z;IF RND (4)=1IF E=1@(32)=1
  95 IF X=-6IF @(24)=1@(24)=2;@(26)=2;@(27)=2;FOR Z=29TO 32;@(Z)=2;NEXT Z
 100 IF X=6IF @(25)=1@(25)=2;FOR Z=27TO 32;@(Z)=2;NEXT Z
 105 IF X=-9IF @(26)=1@(26)=2;@(29)=2;@(30)=2
 110 IF X=9IF @(28)=1@(28)=2;@(31)=2;@(32)=2
 120 IF X=-12IF @(26)=1@(26)=2;FOR Z=29TO 32;@(Z)=2;NEXT Z
 130 IF X=12IF @(28)=1FOR Z=28TO 32;@(Z)=2;NEXT Z
 140 IF X=15@(32)=2
 150 IF X=-15@(29)=2
 160 GOSUB 890;&(23)=0;&(21)=0;IF E=2GOTO 200
 170 FOR Z=23TO 32;IF @(Z)=2@(C)=@(C)+1
 180 NEXT Z;C=C+1;IF @(C-1)=10GOTO 2000
 190 IF @(18)#10IF @(18)+@(19)=10A=13;GOTO 50
 192 IF @(18)=10IF @(20)=10A=13;GOTO 50
 195 GOTO 80
 200 @(C)=10-@(C-1);FOR Z=23TO 32;@(C)=@(C)+@(Z)-2;NEXT Z;GOTO 2000
 890 FOR Z=23TO 32;GOSUB 877+Z;NEXT Z;RETURN 
 900 BOX 0,21,3,3,@(Z);RETURN 
 901 BOX -5,27,3,3,@(Z);RETURN 
 902 BOX 5,27,3,3,@(Z);RETURN 
 903 BOX -10,33,3,3,@(Z);RETURN 
 904 BOX 0,33,3,3,@(Z);RETURN 
 905 BOX 10,33,3,3,@(Z);RETURN 
 906 BOX -15,39,3,3,@(Z);RETURN 
 907 BOX -5,39,3,3,@(Z);RETURN 
 908 BOX 5,39,3,3,@(Z);RETURN 
 909 BOX 15,39,3,3,@(Z);RETURN 
1000 FOR X=-15TO 15STEP 3;BOX X,-39,3,3,3;IF TR(1)GOTO 1050
1010 BOX X,-39,3,3,3;NEXT X;FOR X=15TO -15STEP -3;BOX X,-39,3,3,3;IF TR(1)GOTO 1050
1020 BOX X,-39,3,3,3;NEXT X;GOTO 1000
1050 BOX X,-39,3,3,3;&(23)=255;&(21)=25;FOR Y=-39TO 45STEP 4;BOX X,Y,3,3,3;BOX X,Y,3,3,3;NEXT Y;RETURN 
1500 CY=0;CX=-30;PRINT "GAME   OVER
1505 IF B>T T=B
1506 CX=-60;PRINT "TODAY'S HIGH SCORE
1507 CX=-5;PRINT #1,T
1510 IF TR(1)GOTO 10
1520 GOTO 1510
2000 B=0;CY=15;FOR Z=0TO 18STEP 2;IF Z=10CY=15
2001 IF Z>9CX=70
2005 IF @(Z)=10PRINT "×";IF @(Z+2)=10B=B+20+@(Z+4);GOTO 2060
2010 IF @(Z)=10IF @(Z+2)#10B=B+10+@(Z+2)+@(Z+3);GOTO 2060
2020 IF @(Z)+@(Z+1)=10B=B+10+@(Z+2);PRINT "/";GOTO 2060
2030 B=B+@(Z)+@(Z+1);IF A×2>ZPRINT "-
2060 NEXT Z;A=A+1;C=C+1;GOTO 50
RUN 
